cyber.net interactivo 3/inter@ivo 1996-04.iso/cybint3/bin/filhos.dxr/00012.ls

Text File | 1996-03-21 | 438 b | 25 lines

on exitFrame
  set i to 5
  set yup to 0
  if the mouseCast = 36 then
    go("naveg")
  end if
  repeat while i < 8
    if rollOver(i) then
      set yup to i - 3
      set the visible of sprite yup to 1
      exit repeat
    end if
    set i to i + 1
  end repeat
  set i to 2
  repeat while i < 5
    if i <> yup then
      set the visible of sprite i to 0
    end if
    set i to i + 1
  end repeat
  updateStage()
  go(the frame)
end